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/* REXX */ /* lcframe - 05/16/01 *'/ 

/*### NOTE: this version is the next step after version DVSQL4 that has ###*/ 
/*### the initial try at AND/OR logic for processing a single SELECT ###*/ 
/*### alias output reference. Also this includes the changes to do all ###*/ 
/*### the WHERE record selection as a group procedure effort arid the ###*/ 
/*### associated SELECT opt ions /re format ting will process as a procedure###*/ 
/*### effort AFTER all WHERE seelction processing has finished. ~ ###*/ 

/* DVSQL (DV's version3 of SQL for flat files) *\ 

| SQL processor for inquiries involving non-DB2 files. I 



The following are processing verbs currently available for this processor 



SELECT - definition of selected data to be used as output for the query 
format: SELECT {DISTINCT} {sub-parms,} fieldl, field2, etc. 
Sub Parameters: 

DISTINCT - per the selected fields, make the list singular 
COUNT - number of records selected 

format: COUNT ( {DISTINCT} field) 
MAX - largest value for the specified field 

format: MAX (field) 
MIN - smallest value for the specified field 

format: MIN (field) 
field format: file-letter . (displacement , length) 

where file-letter is the alphabetic letter associated with the 
input DDname on the FROM statement and "displacement" and 
"length" describe the location of the field in the input record. 

or - 

field format: 1 literal -value » 

where literal value is any character/s that are to be inserted 
into the output record. 
FROM - input DDnames and alias letter (maximum of 2 per SELECT) 
format: FROM DDnamel f ile-letterl, DDname2 file-letter2 

where "DDname" is a DD/filename defined in the JCL of the JOB and 
"file-letter" is an UPPER-CASE alphabet letter to be used as a 
short-hand association to the file when describing field name for 
use with other verbs . 
INTO - output DDname (default is SYSOUT or work file/table) 

format : INTO DDname 
WHERE - conditions of processing 

format 1: WHERE A = B =,<>,<,<=,>,>= compare 

format 2 : WHERE A IN C select A values that are in list B 

format 3: WHERE A NOT IN C select A values that are not in list B 

format 4: WHERE A NUMERIC class tests ALPHA, INTERGER, ALPHANUMERIC 

format 5: WHERE cond AND cond intersection of condition outputs 

format 6: WHERE cond OR cond union of condition outputs | 

format 7 : WHERE A BETWEEN valuel AND value2 

NOTE: in the above formats, A designates an input field, | 
B designates an input field or a literal value ( 'xxxxxx' ), j 
C designates either a user defined table of values 

" ( »A» , , B« , 'C , •etc 1 ) " or a sub-query 11 (SELECT etc etc)" 
ORDER BY - sorted order to save output in 

format: ORDER BY fie ldl, field2, field3, etc. where... 
fieldx is (displacement, length) { order} 

displacement - location of field in output record 

length - length of field at specified location 

order - ASC (ascending - default) or DESC (descending) 

Note: When using the NOT IN option of the WHERE verb, it is assumed that 
the user will not be selecting any fields from the control file for use 
in the output, as that would be stupid since you are looking for compare 
records that don't have their key in the control file. 



Note: This processor processes ALL logical file relations and comparisons 
(WHERE information) associated with an SQL level first, then does ALL 
SELECT record reformatting on the resulting file of information. 

A WHERE comparison involving more than one file (a compare and control 
file) results in a compound record structure consisting of selected 
comparison-file records suffixed with the logically paired control -file 
records. This causes the DVSQL program to use enhanced field referencing 
when doing the final SELECT processing for each SQL level since the 
requested field may reside in the suffixed (extended) portion of the 
WHERE output record. 

If complex (multi-file) compare is to be done for any SQL level, it 
must be the first compare in the WHERE verb for that level. This tells 
the processor that the rest of the comparisons of that level will involve 
use of a compound file structure. 



/*- 



Control cards are inputted via the SYSIN DD. 



\* 



Passed parm information is as follows: 

PNODE - The primary node to use in creating sort work data sets and 

other needed work files. 
WKDISP - Valid values are KEEP and DELETE (<--default) . This tells 

the processor whether to keep or delete generated work files 
OUTDSN - data set name of the default output file to be. automatically 

generated in place of specifying the INTO verb. If OUTDSN is 

specified, the INTO SQL verb will be ignored. 



parse upper arg PNODE WKDISP OUTDSN JUNK 



/*■ 

I* 

\*- 



Make sure a 



if 



PNODE = 
do 

say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
call 
call 
call 
call 
call 
exit 
end 



Primary NODE value was specified | 
| PNODE = 1 HELP 1 then 



• Format of //SYSTSIN DD * control card is as follows: 1 
' " %DVSQL PNODE WKDISP OUTDSN " ' 

• where PNODE is the primary node to catalog all work areas and' 
' data sets (mandatory field) 1 

WKDISP is the disposition of all work data sets used and 1 
created in the DVSQL process. Valid values are 1 
I *' KEEP, DELETE. KEEP causes all work data sets to' 

be kept after processing is complete. DELETE or *» 
(the defaults) cause all work data sets to be 1 
deleted (cleaned up) after processing is complete. 1 
I OUTDSN is the name of the output data set to be used to' 

I store the DVSQL output. This option overrides any' 

use of the INTO verb in the SQL requests. 1 

++ Options and Format of DVSQL Statements ++' 

SELECTJFORMAT 

FROM_FORMAT 

INTO_FORMAT 

WHERE_FORMAT 

ORDER_BY_FORMAT 

8 



/* *\ 

I * Verify inputted WKDISK parm I 
\. . _ 

select 

when WKDISP o then WJCDISP = ' DELETE ' /* use default */ 

when WKDISP = 1 DELETE ' then nop 

when WKDISP = ' KEEP 1 then nop 

when WKDISP = 11 then WKDISP - 1 DELETE ' /* use default */ 

otherwise 
do 



say 1 *************' 
say '** ERROR **' 

5 a y 1*************1 

say 1 The inputted work data set disposition PARM value 1 , 
1 " 1 WKDISP 1 " is invalid.' 



say ' Valid values are: ' 

say » "DELETE " - delete all work data sets generated 1 

say 1 "KEEP" - keep all generated work data set* 

say 1 "*" - use the DELETE default' 



return 8 
end 

end 



say 1 ' 

say ' Specified DVSQL command line PARMs • 

say » PNODE = • PNODE 

say » WKDISP = 'WKDISP 

if OUTDSN = • • then 

say 1 OUTDSN = N/A 1 

else 

say 1 OUTDSN = 1 OUTDSN 

say f ' 

/ *\ 

|* Put the user inputted SQL control cards onto an internal SYSIN. table I 
\* - */ 



x = outtrap ( 'DUMMY. •) 
"alloc f (SYSIN)" 
x = outtrap ('OFF') 

"execio * diskr SYSIN (stem SYSIN. finis" 

REXX_RC = RC 
"free f (SYSIN) " 

if REXX_RC > 0 then 
do 

say ' Error reading SYSIN, execio RC = 'REXX_RC 
return 16 
end 



{*-- - -— — - n 

I* do compiler stuff to verify format and content of control cards I 
j* and generate a stack of processing tokens I 
\* . ^ 

QUOT = " ' " 

DDS = 0 /* init general query DD list counter */ 
OUT#DD = 'SQLOUT' /* set output default, in case there, is no INTO verb */ 

OUT#DSN « • ' /* initialize DSN relative to INTO verb */ 

SORT#CARD = 1 ' /* initialize area to store parsed ORDER BY information */ 

1=1 /* set current query level */ 

IMAX =1 /* set current highest query level */ 



call INIT NEW QUERY LEVEL FIELDS 



"alloc f (SYSOUT) DUMMY" 

/* "call ' FDR. SYNCR3 6 .LINKLIB (SYNCSORT) */ 
address ATTCHMVS "SORT" 
/* use LRECL of first record */ 
if RC = 0 then 
do 

x = listdsi ( " • " LRECLCHK" ' ») 
LRECL = SYS LRECL 
end 

else 

say ' **WARNING** could not obtain LRECL info for ' , 
'the data set 'LRECLJDSN 
"free f (SORTIN SORTOUT SYSIN SYSOUT) " 
end 

else 

do ' 

say »**ERROR** Problem obtaining LRECL -info for ' LRECL_DSN 
say 1 Cannot process without it. Processing terminated.' 
exit 
end 
return 



/*********************** CHANGE LOG *********************************/ 

/** DATE PGMR DESCRIPTION 

/* 



*/ 



/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
■/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 
/* 




lcframe NOT IN added to WHERE verb options. 

lcframe Cleanup of code, use full DD alias'-. 1 in WHEREJTYPB. 
lcframe Addition of WHERE IN (table list, etc.) option, 
lcframe Upgrade product to handle VSAM and TAPE inputs and be 
gene rally more generic in processing. 

lcframe Genericise generation of INREC and OUTREC ctlcards. 
lcframe Add option to specify by final output data set by 
input parm (using internal processing defaults) or specific INTO DD. 

lcframe Fix a problem with the unit specification associated 
with the compare file parameters. 

lcframe Complete adding the work data set DELETE / KEEP option 
lcframe Invoke SYNCSORT via ATTCHMVS to be able to more. 
gene rally locate it on other JES complexes. 

lcframe Make sure the output file is at least empty. No null 
outputs allowed. 

06/06/01 lcframe Upgrade changes to allow for use of MIN, MAX, and 

COUNT functions as well as AND/OR logic in the WHERE verb* 
2004/01/15 lcframe SORTWKxx files are no longer needed. SYNCSORT now 
dynamically monitors and allocates SORTWKxxs as needed. 



/ 



/******************************************************* 



*/• 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 
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/* REXX */ /* lcframe - 05/16/01 */ 

/*### NOTE: this version is the next step after version DVSQL4 that has ###*/ 
/*### the initial try at AND/ OR logic for processing a single SELECT ###*/ 
/*### alias output reference. Also this includes the changes to do all ###*/ 
/*### the WHERE record selection as a group procedure effort arid the ###*/ 
/*### associated SELECT options/reformatting will process as a procedure###*/ 
/*### effort AFTER all WHERE seelction processing has finished. ###*/ 

/* DVSQL (DV's version3 of SQL for flat files) *\ 

SQL processor for inquiries involving non-DB2 files. 



The following are processing verbs currently available for this processor 

SELECT - definition of selected data to be used as output for the query 
format: SELECT {DISTINCT} { sub-parms , } fieldl, field2, etc. 
Sub Parameters : 

DISTINCT - per the selected fields, make the list singular 
COUNT - number of records selected 

format: COUNT ( {DISTINCT} field) 
MAX - largest value for the specified field 

format: MAX (field) 
MIN - smallest value for the specified field 

format: MIN (field) 
field format: file-letter . (displacement , length) 

where file-letter is the alphabetic letter associated with the 
input DDname on the FROM statement and "displacement" and 
"length" describe the location of the field in the input record 

or - 

field format: 'literal-value' 

where literal value is any character/s that are to be inserted 
into the output record. 
FROM - input DDnames and alias letter (maximum of 2 per SELECT) 
format: FROM DDnamel f ile-letterl , DDname2 file-letter2 

where "DDname" is a DD/filename defined in the JCL of the JOB and 
"file-letter" is an UPPER -CASE alphabet letter to be used as a 
short-hand association to the file when describing field name for 
use with other verbs . 
INTO - output DDname (default is SYSOUT or work file/table) 

format: INTO DDname 
WHERE - conditions of processing 

format 1: WHERE A = B =,<>,<,<=,>,>= compare 

format 2: WHERE A IN C select A values that are in list B 

format 3: WHERE A NOT IN C select A values that are not in list B 

format 4: WHERE A NUMERIC class tests ALPHA, INTERGER, ALPHANUMERIC 

format 5: WHERE cond AND cond intersection of condition outputs 

format 6: WHERE cond OR cond union of condition outputs 

format 7 : WHERE A BETWEEN valuel AND value2 

NOTE: in the above formats, A designates an input field, 

B designates an input field or a literal value ( 'xxxxxx' ), 
C designates either a user defined table of values 

" ( 1 A' , 1 B 1 , 1 C 1 , 1 etc 1 ) " or a sub-query "(SELECT etc etc)" 
ORDER BY - sorted order to save output in 

format: ORDER BY fieldl, field2, field3, etc. where... 
fieldx is (displacement , length) { order} 

displacement - location of field in output record 

length - length of field at specified location 

order - ASC (ascending - default) or DESC (descending) 



Note: When using the NOT IN option of the WHERE verb, it is assumed that 
the user will not be selecting any fields from the control file for use 
in the output, as that would be stupid since you are looking for compare 
records that don't have their key in the control file. 



Note: This processor processes ALL logical file relations and comparisons 
(WHERE information) associated with an SQL level first, then does ALL 
SELECT record reformatting on the resulting file of information. 

A WHERE comparison involving more than one file (a compare and control 
file) results in a compound record structure consisting of selected 
comparison-file records suffixed with the logically paired control-file 
records. This causes the DVSQL program to use enhanced field referencing 
when doing the final SELECT processing for each SQL level since the 
requested field may reside in the suffixed (extended) portion of the 
WHERE output record. 

If complex (multi-file) compare is to be done for any SQL level, it 
must be the first compare in the WHERE verb for that level. This tells 
the processor that the rest of the comparisons of that level will involve 
use of a compound file structure. 



Control cards are inputted via the SYSIN DD. 



Passed parm information is as* follows: 

PNODE - The primary node to use in creating sort work data sets and 

other needed work files. 
WKDISP - Valid values are KEEP and DELETE (<- -default) . This tells 

the processor whether to keep or delete generated work files 
OUTDSN - data set name of the default output file to be automatically 

generated in place of specifying the INTO verb. If OUTDSN is 

specified, the INTO SQL verb will be ignored. 



parse upper arg PNODE WKDISP OUTDSN JUNK 



/*- 

I* 

\*- 



Make sure a Primary NODE value was specified 



if 



PNODE = 
do 

say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
say 
call 
call 
call 
call 
call 
exit 
end 



PNODE = 1 HELP ' 



then 



Format of //SYSTSIN DD * control card is as follows:' 

" %DVSQL PNODE WKDISP OUTDSN " 1 
where PNODE is the primary node to catalog all work areas and 1 
data sets (mandatory field) ' 
WKDISP is the disposition of all work data sets used and' 
created in the DVSQL process. Valid values are ' 
*, KEEP, DELETE. KEEP causes all work data sets to' 
be kept after processing is complete. DELETE or *' 
(the defaults) cause all work data sets to be * 
deleted (cleaned up) after processing is complete.' 
OUTDSN is the name of the output data set to be used to 1 
store the DVSQL output. This option overrides any 1 
use of the INTO verb in the SQL requests. 1 



++ Options and Format of DVSQL Statements ++ • 

i 

SELECT_FORMAT 

FROM_FORMAT 

INTO_FORMAT 

WHERE_FORMAT 

ORDER_BY_FORMAT 

8 



Verify inputted WKDISK parm 



-*\ 
I 



select 

when WKDISP = 1 * ' 
when WKDISP = ' DELETE 
when WKDISP = 'KEEP' 
when WKDISP = • • 
otherwise 
. do 

say 
say 
say 
say 



then WKDISP = 
then nop 
then nop 
then WKDISP = 



1 DELETE 1 /* use default */ 
•DELETE' /* use default */ 



say ' 
say 1 
say ' 
say ' 
return 8 
end 



!*************» 

1 ** ERROR **» 
• ************* i 

The inputted work data set disposition PARM value 1 , 
' " 'WKDISP' » is invalid. ' 
' Valid values are: ■ 

"DELETE " - delete all work data sets generated' 
■ "KEEP" - keep all generated work data set' 

- use the DELETE default 1 



ii * ii 



end 



say 
say 
say 1 
say ' 

if OUTDSN = 
say 1 

else 

say ' 
say ' ' 



Specified DVSQL command line PARMs -- 
PNODE = ' PNODE 
WKDISP = 1 WKDISP 
then 
OUTDSN = N/A' 

OUTDSN = 'OUTDSN 



/* ^ 

|* Put the user inputted SQL control cards onto an internal SYSIN. table I 
\* 

x = out trap ( ' DUMMY . 1 ) 
"alloc f (SYSIN) " 
x - outtrap ( ' OFF ' ) 

"execio * diskr SYSIN (stem SYSIN. finis" 

REXX_RC = RC 
"free f (SYSIN) " 

if REXX_RC > 0 then 
do 

say • Error reading SYSIN, execio RC = 'REXX_RC 
return 16 
end 



/* n 

I * do compiler stuff to verify format and content of control cards | 
|* and generate a stack of processing tokens I 
\* . 

QUOT = " ' " 

DDS =0 /* init general query DD list counter */ 

OUT#DD = 'SQLOUT' /* set output default, in case there, is no INTO verb */ 

OUT#DSN = • ' /* initialize DSN relative to INTO verb */ 

SORT#CARD = ' ' /* initialize area to store parsed ORDER BY information */ 

1=1 /* set current query level */ 

IMAX =1 /* set current highest query level */ 



call INIT_NEW QUERY LEVEL FIELDS 



"alloc f(SYSOUT) DUMMY 11 

/* "call ' FDR . SYNCR3 6 . LINKL IB (SYNCSORT) 1 " */ 
address ATTCHMVS "SORT" 
/* use LRECL of first record */ 
if RC = 0 then 
do 

x = listdsi ( " 1 "LRECLCHK" 1 " ) 
LRECL = SYSLRECL 
end 

else 

say f **WARNING** could not obtain LRECL info for 
■the data set ' LRECL_DSN 
"free f (SORTIN SORTOUT SYSIN SYSOUT) " 
end 

else 

do 

say 1 **ERROR** Problem obtaining LRECL info for ' LRECL_DSN 
say » Cannot process without it. Processing terminated. 1 
exit 
end 
return 

/**********************★ CHANGE LOG *********************************/ 



/** DATE PGMR DESCRIPTION */ 

/*_^^^^ ____ _ _ is/ 

/* B*^*55J leframe NOT IN added to WHERE verb options . */ 

/* II leframe Cleanup of code, use full DD alias 1 . ' in WHERE_TYPE. */ 

/* I leframe Addition of WHERE IN (table list, etc.) option. */ 

/* leframe Upgrade product to handle VSAM and TAPE inputs and be */ 

/* gene rally more generic in processing. */ 

/* II leframe Genericise generation of INREC and OUTREC ctlcards. */ 

/* leframe Add option to specify by final output data set by */ 

/* ^^^^jiput parm (using internal processing defaults) or specific INTO DD. */ 

/* II leframe Fix a problem with the unit specification associated */ 

7* with the compare file parameters. */ 

/* IjSS^Sffi leframe Complete adding the work data set DELETE/KEEP option */ 

/* KSjSISS leframe Invoke SYNCSORT via ATTCHMVS to be able to more */ 

/* gene rally locate it on other JES complexes. */ 

/* B P^ Si ali ^ leframe Make sure the output file is at least empty. No null */ 

/* outputs allowed. */ 

/* 06/06/01 leframe Upgrade changes to allow for use of MIN, MAX, and */ 

/* COUNT functions as well as AND/OR logic in the WHERE verb, */ 

/* 2004/01/15 leframe SORTWKxx files are no longer needed. SYNCSORT now */ 

/* dynamically monitors and allocates SORTWKxxs as needed. */ 
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